home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
WWSMALL.TXT
< prev
Wrap
Text File
|
1991-08-20
|
2KB
|
135 lines
;------------------------------------------------------
;
; WORLDWIDE -- globe animation (c) 1990 Copyright Chris Butler
; -- revised 1/15/91 for rev 1.02
;
; pic buffer 4 temp use
; clp buffer 1 temp use
set allpsdi off
goto top
all:
set allpsdi on
top:
video m
set numboffices 25 ;
pload worldmap 4
pfade 5 4
palette 4
pfree 4
databegin offices ; choose OFFICES datablock
; show all offices
; display l to r in longitudinal order
mark @numboffices
set x @
set y @
color 12
rect @x,@y @x+4,@y+4
color 0
line @x,@y @x+4,@y+4
line @x,@y+4 @x+4,@y
noise 100 200 10
waitkey 20
loop
waitkey 150
; now roll on "where u need us to be" clipping
cload whereund.clp 1 1 0
cfade 1 40,30 1 200 50
cfree 1
; FOLLOWING LINE ADDED TO REV 1.02 TO GET UNDER 1.2M LIMIT
GOTO WWLABELX
; show us + intl offices
pload worldgr4.pic 1
palette 1
pfade 9 1 400
pfree 1
waitkey 100
cload usoffice.clp 1 1 0
cfade 9 104,98 1 150
note 100 10 10
waitkey
cload intla.clp 1 1 0
cfade 9 56,40 1 150
note 100 10 10
waitkey
cload intlb.clp 1 1 0
cfade 9 64,34 1 150
note 100 10 10
waitkey
cload intlc.clp 1 1 0
cfade 9 56,27 1 150
cfree 1
note 100 10 10
waitkey
WWLABELX:
if @allpsdi==on
link clients.txt all
else
link master.txt entry_5
endif
; SUBR WORLDWIDE
;
; la ger bos thai? spain calgary?
; malaysia? seattle italy dallas london dc sinagapore?
; sf vienna? toronto? sydney? chicago hongkong?
; delhi? denver switz nyc tokyo france melbourne?
;
offices:
83,280
85,263
90,258
98,298
109,267
124,254
138,268
149,289
157,260
162,266
169,273
293,269
295,296
303,282
313,282
314,294
321,273
332,288
440,236
478,194
480,220
514,194
518,270
543,261
563,132
dataend
; offices array ordered by longitude
longorder:
8 14 1 6 21 10 18 16 12 23 3 5 11
25 22 2 9 15 20 7 4 17 13 19 24 26
dataend
; SUBR WORLDWIDE
---------------------------------------video m